home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 1 / Dimension_64_Nr.01_19xx_-_de_Side_A.d64 / 0 blocks frei (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  700b  |  34 lines
  1. 10 rem *************************
  2. 15 rem * belegen aller bloecke *
  3. 20 rem *                       *
  4. 21 rem *                       *
  5. 22 rem * erzeugt 0 blocks free *
  6. 23 rem *     auf diskette      *
  7. 24 rem *************************
  8. 30 :
  9. 35 dimq$(255)
  10. 40 print"[147][158]":poke53280,0:poke53281,0
  11. 45 print"       belegen aller bloecke [146]"
  12. 50 fori=0to5000:next
  13. 60 print"[147]";
  14. 70 print"              gestartet."
  15. 80 open15,8,15:open5,8,5,"#":print#15,"u1:5,"0,18,0
  16. 140 fori=0to255
  17. 150 a$="":get#5,a$:ifa$=""thena$=chr$(0)
  18. 160 q$(i)=a$
  19. 170 next
  20. 175 close5
  21. 180 fori=4to143
  22. 182 ifi>71andi<76then186
  23. 184 q$(i)=chr$(0)
  24. 186 next
  25. 200 open2,8,2,"#"
  26. 210 fori=2to255
  27. 212 print#15,"b-p:"2,i
  28. 214 print#2,q$(i);
  29. 216 next
  30. 220 print#15,"u2:2,"0,18,0
  31. 230 close2
  32. 240 print"[147][158]":poke53280,0:poke53281,0
  33. 250 print#15,"i":close15
  34.